perm filename N[1,BGB] blob
sn#020871 filedate 1973-02-23 generic text, type T, neo UTF8
00100 ;CRE NODE FORMATS.
00200 ;----------------------------------------------------------------;
00300 ; ;
00400 ; VERTEX/ARC NODE. POLYGON/REGION NODE. ;
00500 ; ;
00600 ; 0 CW,,CCW 0 polygon-ring. ;
00700 ; 1 ROW,,COL 1 DAD,,SON ;
00800 ; 2 TYPE,,RELOC 2 TYPE,,RELOC ;
00900 ; 3 ENDO,,EXO 3 ENDO,,EXO ;
01000 ; 4 ARC,,PED 4 ARC,,NCNT ;
01100 ; 5 CNTRST,,PGON 5 CIS,,PGON ;
01200 ; 6 NTIME,,PTIME 6 NTIME,,PTIME ;
01300 ; ;
01400 ;----------------------------------------------------------------;
01500 ; WINGED EDGE NODE. FACE NODE. ;
01600 ; ;
01700 ; 0 NCW ,,PCW 0 - ,, - ;
01800 ; 1 NCCW,,PCCW 1 DAD,, - ;
01900 ; 2 TYPE,,lngth/cntrst 2 TYPE,,RELOC ;
02000 ; 3 NFACE,,PFACE 3 NFACE,,PFACE ;
02100 ; 4 NED,,PED 4 - ,,PED ;
02200 ; 5 NVT,,PVT 5 - ,, - ;
02300 ; 6 NTIME,,PTIME 6 NTIME,,PTIME ;
02400 ; ;
02500 ;----------------------------------------------------------------;
02600 ; IMAGE NODE. LEVEL NODE. ;
02700 ; ;
02800 ; 0 image-ring. 0 level-ring. ;
02900 ; 1 - ,,SON 1 - ,,SON ;
03000 ; 2 TYPE,,RELOC 2 TYPE,,RELOC ;
03100 ; 3 NFACE,,PFACE 3 - ,, - ;
03200 ; 4 NED,,PED 4 - ,,NCNT ;
03300 ; 5 - ,, - 5 - ,, - ;
03400 ; 6 NTIME,,PTIME 6 NTIME,,PTIME ;
03500 ; ;
03600 ;----------------------------------------------------------------;
03700 ; FILM NODE. EMPTY NODE. ;
03800 ; ;
03900 ; 0 coresize 0 - ,,avail ;
04000 ; 1 - ,,SON 1 - ,, - ;
04100 ; 2 TYPE,,RELOC 2 TYPE,,RELOC ;
04200 ; 3 - ,,avail 3 - ,, - ;
04300 ; 4 blk count 4 - ,, - ;
04400 ; 5 - ,, - 5 - ,, - ;
04500 ; 6 NTIME,,PTIME 6 NTIME,,PTIME ;
04600 ; ;
04700 ;----------------------------------------------------------------;
00100 ;LINK NAMES DEFINED.
00200
00300 DEFINE SON (A,Q){CDR A,1(Q)}↔ DEFINE SON. (A,Q){DAP A,1(Q)}
00400 DEFINE DAD (A,Q){CAR A,1(Q)}↔ DEFINE DAD. (A,Q){DIP A,1(Q)}
00500
00600 DEFINE TYPE (A,Q){CAR A,2(Q)}↔ DEFINE TYPE.(A,Q){DIP A,2(Q)}
00700 DEFINE RELOC (A,Q){CDR A,2(Q)}↔ DEFINE RELOC.(A,Q){DAP A,2(Q)}
00800
00900 RC←←1
01000 DEFINE ROW(A,Q){CAR A,1(Q)} ↔ DEFINE ROW.(A,Q){DIP A,1(Q)}
01100 DEFINE COL(A,Q){CDR A,1(Q)} ↔ DEFINE COL.(A,Q){DAP A,1(Q)}
01200 DEFINE ARC(A,Q){CAR A,4(Q)} ↔ DEFINE ARC.(A,Q){DIP A,4(Q)}
01250
01300 DEFINE CW (A,Q){CAR A,0(Q)} ↔ DEFINE CCW (A,Q){CDR A,0(Q)}
01400 DEFINE CW.(A,Q){DIP A,0(Q)} ↔ DEFINE CCW.(A,Q){DAP A,0(Q)}
01500 DEFINE CNTRST(A,Q){NIP A,5(Q)}↔DEFINE CNTRS.(A,Q){DIP A,5(Q)}
01600
01700 DEFINE NCW (A,Q){CAR A,0(Q)}↔DEFINE NCW. (A,Q){DIP A,0(Q)}
01800 DEFINE PCW (A,Q){CDR A,0(Q)}↔DEFINE PCW. (A,Q){DAP A,0(Q)}
01900 DEFINE NCCW(A,Q){CAR A,1(Q)}↔DEFINE NCCW.(A,Q){DIP A,1(Q)}
02000 DEFINE PCCW(A,Q){CDR A,1(Q)}↔DEFINE PCCW.(A,Q){DAP A,1(Q)}
02100
02200 DEFINE NFACE(A,Q){CAR A,3(Q)}↔DEFINE NFACE.(A,Q){DIP A,3(Q)}
02300 DEFINE PFACE(A,Q){CDR A,3(Q)}↔DEFINE PFACE.(A,Q){DAP A,3(Q)}
02400
02500 DEFINE NED (A,Q){CAR A,4(Q)}↔DEFINE NED. (A,Q){DIP A,4(Q)}
02600 DEFINE PED (A,Q){CDR A,4(Q)}↔DEFINE PED. (A,Q){DAP A,4(Q)}
02700 DEFINE NVT (A,Q){CAR A,5(Q)}↔DEFINE NVT. (A,Q){DIP A,5(Q)}
02800 DEFINE PVT (A,Q){CDR A,5(Q)}↔DEFINE PVT. (A,Q){DAP A,5(Q)}
02900
02910
02920 DEFINE NTIME(A,Q){CAR A,6(Q)}↔DEFINE NTIME.(A,Q){DIP A,6(Q)}
02930 DEFINE PTIME(A,Q){CDR A,6(Q)}↔DEFINE PTIME.(A,Q){DAP A,6(Q)}
02940
03000 DEFINE ENDO(A,Q){CAR A,3(Q)}↔DEFINE ENDO.(A,Q){DIP A,3(Q)}
03100 DEFINE EXO (A,Q){CDR A,3(Q)}↔DEFINE EXO. (A,Q){DAP A,3(Q)}
03200 DEFINE NGON(A,Q){CAR A,5(Q)}↔DEFINE NGON.(A,Q){DIP A,5(Q)}
03300 DEFINE PGON(A,Q){CDR A,5(Q)}↔DEFINE PGON.(A,Q){DAP A,5(Q)}
03400 DEFINE NCNT(A,Q){NAP A,4(Q)}↔DEFINE NCNT.(A,Q){DAP A,4(Q)}
03500 ;-----------------------------------------------------------------
00100 ;PROPERTY-TYPE MACROS.
00200 DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
00300 DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
00400 DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
00500 DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
00600
00700 ;PROPERTY-TYPE BITS.
00800 ↓VBIT←←1B17 ;VERTEX.
00900 ↓EBIT←←1B16 ;EDGE.
01000 ↓FBIT←←1B15 ;FACE.
01100
01200 ↓PBIT←←1B14 ;POLYGON.
01300 ↓LBIT←←1B13 ;LEVEL
01400 ↓IBIT←←1B12 ;IMAGE.
01500
01600 ↓FILBIT←←1B11 ;FILM.
01700 ↓HOLBIT←←1B10 ;HOLE.
01800 ↓ARCBIT←←1B9 ;ARC.
01900
02000 ↓WESBIT←←1B8 ;WEST.
02100 ↓SOUBIT←←1B7 ;SOUTH.
02200 ↓EASBIT←←1B6 ;EAST.
02300
02400 ↓NORBIT←←1B5 ;NORTH.
02500 ↓WASP←←1B4 ;WASP WAISTED EDGE.
02600 ↓TMPBIT←←1B3 ;TEMPORARY BIT.
02700
02800 ;LINK-RELOCATION BITS OF EACH NODE TYPE.
02900 VREL←←303310 ;VERTEX.
03000 EREL←←400000 ;EDGE.
03100 FREL←←023103 ;FACE.
03200 PGNREL←←333233 ;POLYGON.
03300 LVLREL←←330003 ;LEVEL.
03400 IMGREL←←333333 ;IMAGE.
03500 FILREL←←011000 ;FILM.
03600 ;-----------------------------------------------------------------